home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / Gestion / Bibliographie⁄Répertoire / Répertoire 3.0 / RÈpertoire 3.0.rsrc / LENS_135_CombiRecherches < prev    next >
Text File  |  1994-08-22  |  4KB  |  160 lines
  1. ItemType: WIND
  2. Rect: 228,86,412,350
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 32767,32767
  10. Name: CombiRecherches
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --(d'après Alan Pabst, Heizer Software)¬--on windowEvent wdID,wdName,objNo,objName,objValue¬¬if objValue is "Open" then¬  wsSet wdID,"EntreeA","Text",""¬  wsSet wdID,"EntreeB","Text",""¬  wsSet wdID,"EntreeC","Text",""¬  wsSet wdID,"EntreeD","Text",""¬  wsSet wdID,"Path","Text",""¬  wsSet wdID,"Complet","Value","0"¬  wsSet wdID,"Rechercher","Disabled","true"¬  wsSet wdID,"Consulter","Disabled","true"¬  wsSet wdID,"Stocker","Disabled","true"¬  wsSet wdID,"LeChamp","Text",quelChamp¬else if objValue is "Close" then¬  effaceCorne¬  put empty into GsubSelec¬  put false into GCorne¬  put empty into laListe¬else if objValue ="Suspend" then¬  ¬else if objValue ="Resume" then¬  ¬else if objValue ="CloseBox" then¬  ¬else if objValue ="ZoomBox" then¬  ¬else if objValue ="GrowBox" then¬  ¬else if objValue ="TitleBar" then¬  ¬end if¬--end windowEvent
  13.  
  14. ItemType: PUSH
  15. Rect: 92,164,172,181
  16. TextFont: Geneva
  17. TextSize: 10
  18. Disabled: TRUE
  19. Name: Rechercher
  20. DefaultItem: TRUE
  21. Balloon: Ce bouton devient actif avec l'appui sur la touche Tabulation après la saisie du mot à recherche.
  22. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬ChercheAvec¬--end mouseUp
  23.  
  24. ItemType: TEXT
  25. Rect: 72,50,176,67
  26. TextFont: Geneva
  27. TextSize: 10
  28. Name: EntreeA
  29. BlackColor: 4369,4369,4369
  30. WhiteColor: -1,-1,-13108
  31. LockText: FALSE
  32. Script: --on mouseUp wdID,wdName,objNo,objName,ObjValue¬wsSet wdId,"Rechercher","Disabled","false"¬--end mouseUp¬
  33.  
  34. ItemType: PUSH
  35. Rect: 96,240,176,257
  36. TextFont: Geneva
  37. TextSize: 10
  38. Name: Annuler
  39. CancelItem: TRUE
  40. AutoClose: TRUE
  41. Balloon: Ferme la fenêtre de recherche
  42.  
  43. ItemType: TEXT
  44. Rect: 7,188,177,214
  45. TextFont: Geneva
  46. TextSize: 10
  47. Name: Path
  48. TextAlign: Center
  49.  
  50. ItemType: LBL
  51. Rect: 8,26,178,42
  52. TextSize: 12
  53. BlackColor: 0,0,-8739
  54. Text: Valeur(s) recherchée(s) ?
  55.  
  56. ItemType: CNTL
  57. Rect: 5,12,176,24
  58. BlackColor: 0,0,-8739
  59. Name: Complet
  60. Style: 320
  61. Min: 0
  62. Max: 467
  63. Value: 0
  64. Step: 1
  65. Leap: 10
  66.  
  67. ItemType: TEXT
  68. Rect: 10,-1,29,11
  69. TextFont: Geneva
  70. TextSize: 9
  71. Name: 0%
  72. BlackColor: 0,0,-8739
  73. WhiteColor: -8739,-8739,-8739
  74. Text: 0%
  75.  
  76. ItemType: TEXT
  77. Rect: 143,-1,174,11
  78. TextFont: Geneva
  79. TextSize: 9
  80. Name: 100%
  81. BlackColor: 0,0,-8739
  82. WhiteColor: -8739,-8739,-8739
  83. Text: 100%
  84.  
  85. ItemType: PUSH
  86. Rect: 8,240,88,257
  87. TextFont: Geneva
  88. TextSize: 10
  89. Name: Effacer
  90. Balloon: Efface la requête et ses résultats. Permet une nouvelle  recherche.
  91. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬wsSet wdID,"EntreeA","TEXT",""¬wsSet wdID,"EntreeB","TEXT",""¬wsSet wdID,"EntreeC","TEXT",""¬wsSet wdID,"EntreeD","TEXT",""¬wsSet wdID,"path","TEXT",""¬wsSet wdID,"Complet","Value","0"¬wsSet wdID,"Consulter","Disabled","true"¬wsSet wdID,"Stocker","Disabled","True"¬wsSet wdID,"Annuler","Disabled","False"¬effaceCorne¬put false into GCorne¬put empty into GSubSelec¬--end mouseUp
  92.  
  93. ItemType: LBL
  94. Rect: 16,168,82,184
  95. BlackColor: 0,0,-8739
  96. Text: Résultats
  97.  
  98. ItemType: PUSH
  99. Rect: 96,216,176,233
  100. TextFont: Geneva
  101. TextSize: 10
  102. Disabled: TRUE
  103. Name: Stocker
  104. Balloon: Ce bouton conduit à la première carte où il est possible de stocker les recherches effectuées (dans la limite de 4 stockages).
  105. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬push cd¬go cd 1¬stockage¬--end mouseUp
  106.  
  107. ItemType: PUSH
  108. Rect: 8,216,88,233
  109. TextFont: Geneva
  110. TextSize: 10
  111. Disabled: TRUE
  112. Name: Consulter
  113. Balloon: Ce bouton permet d'afficher une nouvelle fenêtre permettant une consultation des fiches sélectionnées.
  114. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬get windowScript("Consultation")¬--end mouseUp
  115.  
  116. ItemType: TEXT
  117. Rect: 8,88,176,105
  118. TextFont: Geneva
  119. TextSize: 10
  120. Name: EntreeB
  121. BlackColor: 4369,4369,4369
  122. WhiteColor: -1,-1,-13108
  123. LockText: FALSE
  124. Script: ¬
  125.  
  126. ItemType: TEXT
  127. Rect: 8,112,176,129
  128. TextFont: Geneva
  129. TextSize: 10
  130. Name: EntreeC
  131. BlackColor: 4369,4369,4369
  132. WhiteColor: -1,-1,-13108
  133. LockText: FALSE
  134. Script: ¬
  135.  
  136. ItemType: TEXT
  137. Rect: 8,136,176,153
  138. TextFont: Geneva
  139. TextSize: 10
  140. Name: EntreeD
  141. BlackColor: 4369,4369,4369
  142. WhiteColor: -1,-1,-13108
  143. LockText: FALSE
  144. Script: ¬
  145.  
  146. ItemType: TEXT
  147. Rect: 7,49,66,66
  148. TextSize: 12
  149. AutoSize: FALSE
  150. Name: LeChamp
  151. BlackColor: 0,0,-8739
  152. WhiteColor: -8739,-8739,-8739
  153. Text: quelChamp
  154.  
  155. ItemType: TEXT
  156. Rect: 10,69,27,85
  157. Name: Et
  158. BlackColor: 0,0,-8739
  159. WhiteColor: -8739,-8739,-8739
  160. Text: Et